From: Kim F. Storm <storm@cua.dk>
Date: Fri, 21 Jun 2002 13:51:26 +0000 (+0000)
Subject: Handle kp-begin like kp-space.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~32101
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=bb3b3b545e850d7f039d1d3fa4deb90e91fe21e5;p=emacs.git

Handle kp-begin like kp-space.
---

diff --git a/lisp/emulation/keypad.el b/lisp/emulation/keypad.el
index 2f1d3e1f2a4..7a9b4fc8362 100644
--- a/lisp/emulation/keypad.el
+++ b/lisp/emulation/keypad.el
@@ -255,6 +255,14 @@ the decimal key on the keypad is mapped to DECIMAL instead of `.'"
     (while (< i 11)
       (define-key function-key-map (vector (aref kp i))
 	(if bind (vector (aref bind i))))
+      (if (= i 6)
+	  (cond ((eq (aref kp i) 'kp-space)
+		 (define-key function-key-map [kp-begin]
+		   (if bind (vector (aref bind i)))))
+		((eq (aref kp i) 'S-kp-space)
+		 (define-key function-key-map [S-kp-begin]
+		   (if bind (vector (aref bind i)))))))
+		 
       (setq i (1+ i)))))
 
 ;;; keypad.el ends here